home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / SHELLS / SZ2 / ADEMO3.INC < prev    next >
Text File  |  1992-08-31  |  3KB  |  62 lines
  1.    {===================================================================
  2.  
  3.    OPEN
  4.  
  5.    ===================================================================}
  6. procedure hdOpen ;
  7. var
  8.    D                         : PFileDialog ;
  9.    FileSpec                  : FNameStr ;
  10. begin
  11.    FileSpec                  := '*.TXT' ;
  12.    New ( D , Init ( FileSpec ,                             { FileSpec }
  13.                     'Open file',                       { Dialog title }
  14.                     '~N~ame' ,                      { InputLine label }
  15.                     fdOpenButton ,                          { Buttons }
  16.                     100 ) ) ;                          { History list }
  17.    if GENERAL.ExecDialog ( D , @FileSpec ) = cmCancel then EXIT ; 
  18.    GENERAL.OpenEditor ( FileSpec , TRUE ) ;
  19. end ;
  20.    {===================================================================
  21.  
  22.    Simple version; uses only MSGBOX.MessageBox
  23.  
  24.    ===================================================================}
  25. function EditorDialog ( Dialog : Integer ;
  26.                         Info : Pointer ) : word ; FAR ;
  27. var
  28.    R                         : TRect ;
  29.    T                         : TPoint ;
  30. begin
  31.    case Dialog of
  32.    edOutOfMemory :
  33.       EditorDialog           := MessageBox ( ^C'Not enough memory for this operation.' ,
  34.                                              NIL ,
  35.                                              mfError + mfOkButton ) ;
  36.    edReadError :
  37.       EditorDialog           := MessageBox ( ^C'Error reading file %s.' ,
  38.                                              @Info ,
  39.                                              mfError + mfOkButton ) ;
  40.    edWriteError :
  41.       EditorDialog           := MessageBox ( ^C'Error writing file %s.' ,
  42.                                              @Info ,
  43.                                              mfError + mfOkButton ) ;
  44.    edCreateError :
  45.       EditorDialog           := MessageBox ( ^C'Error creating file %s.' ,
  46.                                              @Info ,
  47.                                              mfError + mfOkButton ) ;
  48.    edSaveModify :
  49.       EditorDialog           := MessageBox ( ^C'%s has been modified. Save?' ,
  50.                                              @Info ,
  51.                                              mfInformation + mfYesNoCancel ) ;
  52.    edSaveUntitled :
  53.       EditorDialog           := MessageBox ( ^C'Save untitled file?' ,
  54.                                              NIL ,
  55.                                              mfInformation + mfYesNoCancel ) ;
  56.    else
  57.       MessageBox ( ^C'Unknown DIALOG requested!' ,
  58.                    NIL ,
  59.                    mfError + mfOkButton ) ;
  60.    end ;
  61. end ;
  62.